home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flweh12b.dir / 00150_Script_150 < prev   
Text File  |  1994-11-15  |  2KB  |  80 lines
  1. on startMovie
  2.   cursor 4
  3.   global currMM
  4.   set currMM = "FLWWT"
  5.   
  6.   preLoadCast 1,3
  7.   
  8.   puppetSprite 21, TRUE
  9.   puppetSprite 22, TRUE
  10.   puppetSprite 23, TRUE 
  11.   puppetSprite 11, TRUE
  12.   set the immediate of sprite 23 to TRUE
  13.   set the stretch of sprite 23 to FALSE
  14. end startMovie
  15.  
  16. on saveLocals
  17.   global lastMovie, lastFrame, nowFrame
  18.   set lastFrame = nowFrame
  19.   set lastMovie = "FLWEH12b"
  20. end saveLocals
  21.  
  22. on buttonState
  23.   global FrankNav, bFlag 
  24.   
  25.   if rollover(11) then
  26.     set the castNum of sprite 11 to 1086
  27.     if the mouseDown then
  28.       set the castNum of sprite 11 to 1087
  29.     end if
  30.   else 
  31.     set the castNum of sprite 11 to 1085
  32.   end if
  33.   
  34.   if rollover(5) then
  35.     rollCheck
  36.   else 
  37.     set pos = 0
  38.     cursor -1
  39.   end if
  40.   
  41.   rollCheck
  42.   if (the mouseV > 200) or (bFlag = TRUE) then
  43.     doState
  44.   end if
  45. end buttonState
  46.  
  47. on rollCheck
  48.   global right, left, forw, forwOnly, pos
  49.   if the mouseH>=445 and the mouseH<=536 and the mouseV>65 and the mouseV<305 then
  50.     if right = 1 then
  51.       set pos = 3
  52.       cursor [1065,1066]
  53.     else if forwOnly = 1 then
  54.       set pos = 2
  55.       cursor [1067,1068]
  56.     else 
  57.       set pos = 0
  58.       cursor [1071,1072]
  59.     end if
  60.   else if the mouseH>=216 and the mouseH<=307 and the mouseV>65 and the mouseV<305 then
  61.     if left = 1 then
  62.       set pos = 1
  63.       cursor [1069,1070]
  64.     else if forwOnly = 1 then
  65.       set pos = 2
  66.       cursor [1067,1068]
  67.     else
  68.       set pos = 0
  69.       cursor [1071,1072]
  70.     end if
  71.   else if the mouseH>=306 and the mouseH<=446 and the mouseV>65 and the mouseV<305 then
  72.     if forw = 1 then
  73.       set pos = 2
  74.       cursor [1067,1068]
  75.     else
  76.       set pos = 0
  77.       cursor [1071,1072]
  78.     end if
  79.   end if
  80. end rollCheck